home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / misc / wb_41e.zip / SYSINFO.WB_ < prev    next >
Text File  |  1993-08-25  |  2KB  |  72 lines
  1. CR=strcat(Num2char(13),Num2Char(10))
  2. TAB=Num2Char(9)
  3.  
  4. BoxOpen("SysInfo","Sysinfo is examining your system.%cr%Please wait.")
  5.  
  6. wintype="retail"
  7. if WinMetrics(22) then wintype="debug"
  8.  
  9. wc=WinConfig()
  10. if !(wc&1) then mode="Real"
  11. if wc&16 then mode="Standard"
  12. if wc&32 then mode="Enhanced"
  13.  
  14. if wc&2 then cpu=286
  15. if wc&4 then cpu=386
  16. if wc&8 then cpu=486
  17. if wc&64 then cpu=8086
  18. if wc&128 then cpu=80186
  19.  
  20. Sysinfo=strcat(cpu,' ',mode,' ',wintype,' Windows ',WinVersion(1),'.',WinVersion(0),CR)
  21.  
  22.  
  23.  
  24. math="No math"
  25. if wc&1024 then math="Math"
  26. mouse="No Mouse"
  27. if WinMetrics(19) then mouse="Mouse"
  28.  
  29. Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',CR)
  30.  
  31.  
  32.  
  33. sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",CR)
  34.  
  35. ErrorMode(@OFF)
  36. LastError()
  37. PlayMedia("Status WaveForm Ready")
  38. ErrorMode(@CANCEL)
  39. if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",CR)
  40.  
  41. bug=NetGetCaps(2)
  42. if bug==0 then math="No n"
  43. if bug!=0 then math="N"
  44. if bug==256 then math="Microsoft n" 
  45. if bug==512 then math="Lan Manager n" 
  46. if bug==768 then math="Novell NetWare n" 
  47. if bug==1024 then math="Banyan Vines n" 
  48. if bug==1280 then math="10 Net n"
  49. sysinfo=strcat(sysinfo,math,"etwork installed.",CR) 
  50.  
  51. bug=WinResources(0)/1024   ; Compute memory avail
  52. math=strlen(bug)
  53. if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  54.  
  55. sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  56. sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  57.  
  58. sysinfo=strcat(sysinfo,"DOS ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),CR)
  59. disks=DiskScan(1)
  60. if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,CR)
  61. disks=DiskScan(2)
  62. if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,CR)
  63. disks=DiskScan(4)
  64. if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,CR)
  65. sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),CR)
  66. sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),CR)
  67. sysinfo=strcat(sysinfo,CR,"WIL Interpreter Ver ",VersionDll())
  68.  
  69.  
  70. ver=Version()
  71. Message("WinBatch %ver% SysInfo",Sysinfo)
  72.